Imports CapaDeDatos
Public Class nTipoUsuario
    Public Usuario As CapaDeDatos.dTipoUsuario = New CapaDeDatos.dTipoUsuario

    Public Function ListarTipoUsuario(ByVal TipoUsuario As Integer, ByVal descripcion As String) As DataSet
        Return Usuario.Listar(TipoUsuario, descripcion)
    End Function
    Public Function Insertar(ByVal Descripcion As String) As Boolean
        Return Usuario.InsertarTipoUsuario(Descripcion)
    End Function
    Public Function Existe(ByVal Descripcion As String) As Boolean
        Return Usuario.ExisteGrupo(Descripcion)
    End Function
    Public Function Eliminar(ByVal TipoUsuario As Integer) As Boolean
        Return Usuario.EliminarTipoUsuario(TipoUsuario)
    End Function
    Public Function Modificar(ByVal TipoUsuario As Integer, ByVal Descripcion As String) As Boolean
        Return Usuario.ModificarTipoUsuario(TipoUsuario, Descripcion)
    End Function
End Class
